release_variables Subroutine

public subroutine release_variables()

Arguments

None

Calls

proc~~release_variables~~CallsGraph proc~release_variables release_variables proc~kohonen_pattern_destroy kohonen_pattern%kohonen_pattern_destroy proc~release_variables->proc~kohonen_pattern_destroy none~destroy~9 kohonen_prototype%destroy proc~kohonen_pattern_destroy->none~destroy~9

Variables

Type Visibility Attributes Name Initial
integer, public :: i
logical, public :: testop

Source Code

     subroutine release_variables()
      integer :: i
      logical :: testop
    !
      if(allocated(input_patterns)) then
        do i=1,size(input_patterns)
           call input_patterns(i)%destroy();
        enddo
        deallocate(input_patterns);
      endif
    !
      if(allocated(seeds)) then
        deallocate(seeds);
      endif
    !
      if(allocated(total_results)) then
        deallocate(total_results);
      endif
    !
     if(allocated(association_matrix)) then
       deallocate(association_matrix);
     endif
    ! 
     if(allocated(clusters)) then
       deallocate(clusters);
     endif
    !
      inquire(unit=som_parameters(1)%iout1,opened=testop);
      if(testop) then
        close(som_parameters(1)%iout1);
      endif
    !
      inquire(unit=som_parameters(1)%imeas,opened=testop);
      if(testop) then
        close(som_parameters(1)%imeas);
      endif
    !   inquire(unit=som_parameters(1)%iindex,opened=testop);
    !   if(testop) then
    !     close(som_parameters(1)%iindex);
    !   endif
    ! !
    !   inquire(unit=som_parameters(1)%iprot,opened=testop);
    !   if(testop) then
    !     close(som_parameters(1)%iprot);
    !   endif
    ! !
    !   inquire(unit=som_parameters(1)%ihit,opened=testop);
    !   if(testop) then
    !     close(som_parameters(1)%ihit);
    !   endif
    ! !
    !   inquire(unit=som_parameters(1)%idist,opened=testop);
    !   if(testop) then
    !     close(som_parameters(1)%idist);
    !   endif
    ! !
    !   inquire(unit=som_parameters(1)%iumat,opened=testop);
    !   if(testop) then
    !     close(som_parameters(1)%iumat);
    !   endif
    ! !
    !   inquire(unit=som_parameters(1)%isam,opened=testop);
    !   if(testop) then
    !     close(som_parameters(1)%isam);
    !   endif
    ! !
    !   inquire(unit=som_parameters(1)%iclus,opened=testop);
    !   if(testop) then
    !     close(som_parameters(1)%iclus);
    !   endif
    ! !
    !   inquire(unit=som_parameters(1)%icen,opened=testop);
    !   if(testop) then
    !     close(som_parameters(1)%icen);
    !   endif
    ! !
    !   inquire(unit=som_parameters(1)%iclus1,opened=testop);
    !   if(testop) then
    !     close(som_parameters(1)%iclus1);
    !   endif
    ! 
    ! !
    !   inquire(file=trim(som_parameters(1)%debug_file),opened=testop);
    !   if(testop) then
    !     close(som_parameters(1)%idbg);
    !   endif
    ! 
     end subroutine release_variables